home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / shelsort.bas < prev    next >
BASIC Source File  |  1984-02-26  |  695b  |  36 lines
  1. 1 '''''''''Shell Sort routine
  2. 2 '
  3. 4   DIM A$(100)
  4. 5   '
  5. 6   ' Y=# of items to sort.
  6. 7   ' A$( )=Array to sort
  7. 8   '
  8. 9   GOSUB 200: 'get data..
  9. 10  PRINT"Shell sort..."
  10. 20  TIME$="00:00:00"
  11. 30  Y=100:N7=0:C7=0
  12. 40  M6=Y
  13. 50  M6=INT(M6/2)
  14. 60  IF M6=0 GOTO 500: 'print
  15. 70  K6=Y-M6
  16. 80  J6=1
  17. 90  I6=J6
  18. 100 L6=I6+M6
  19. 110 C7=C7+1
  20. 120 IF A$(I6)<=A$(L6) GOTO 170
  21. 130 N7=N7+1
  22. 140 SWAP A$(I6),A$(L6):PRINT".";
  23. 150 I6=I6-M6
  24. 160 IF I6>=1 GOTO 100
  25. 170 J6=J6+1
  26. 180 IF J6>K6 GOTO 50
  27. 190 GOTO 90
  28. 200 FOR X = 1 TO 100
  29. 210 A$(X)=CHR$(RND(1)*20+65)
  30. 220 PRINT A$(X)+CHR$(32);:NEXT X:RETURN
  31. 500 PRINT:PRINT"time=";TIME$
  32. 510 FOR X=1 TO 100
  33. 520 PRINT A$(X)+CHR$(32);
  34. 530 NEXT X
  35. 540 END
  36.